Option Strict Off
Option Explicit On
Friend Class frmAveraging
	Inherits System.Windows.Forms.Form 'Declares that all variables must be defined before use.
	Private Sub frmAveraging_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
		
		Me.Width = VB6.TwipsToPixelsX((CaptureWidth * 2) * VB6.TwipsPerPixelX) 'Set the  form width (Convert width to twips as screen works in twips)
		Me.Height = VB6.TwipsToPixelsY(CaptureHeight * VB6.TwipsPerPixelY) 'Set the  form height (Convert height to twips as screen works in twips)
		'UPGRADE_NOTE: The Following line was commented to give the same effect as VB6. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="1C44C272-DA6E-4A2A-BDC5-9A27F0D03D31"'
		'Me.FormBorderStyle = 1 'Fixed Border. User cannot resize
		Me.Text = "Frame Averaging"
		'UPGRADE_ISSUE: Constant vbPixels was not upgraded. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="55B59875-9A95-4B71-9D6A-7C294BF7139D"'
		'UPGRADE_ISSUE: PictureBox property picRaw.ScaleMode was not upgraded. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"'
        'picRaw.ScaleMode = vbPixels
		picRaw.Top = 0
		picRaw.Width = CaptureWidth
		picRaw.Height = CaptureHeight
		picRaw.Left = 0
		'UPGRADE_ISSUE: PictureBox property picRaw.ScaleMode was not upgraded. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"'
        'picRaw.ScaleMode = 3 'set scale mode to pixels
		picRaw.Visible = True 'doesnt matter true or false
		'UPGRADE_ISSUE: PictureBox property picRaw.AutoRedraw was not upgraded. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"'
        'picRaw.AutoRedraw = True 'needs to be true
		picRaw.BorderStyle = System.Windows.Forms.BorderStyle.None
		
		'UPGRADE_ISSUE: Constant vbPixels was not upgraded. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="55B59875-9A95-4B71-9D6A-7C294BF7139D"'
		'UPGRADE_ISSUE: PictureBox property picAverage.ScaleMode was not upgraded. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"'
        'picAverage.ScaleMode = vbPixels
		picAverage.Top = 0
		picAverage.Width = CaptureWidth
		picAverage.Height = CaptureHeight
		picAverage.Left = CaptureWidth
		'UPGRADE_ISSUE: PictureBox property picAverage.ScaleMode was not upgraded. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"'
        'picAverage.ScaleMode = 3 'set scale mode to pixels
		picAverage.Visible = True 'doesnt matter true or false
		'UPGRADE_ISSUE: PictureBox property picAverage.AutoRedraw was not upgraded. Click for more: 'ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword="CC4C7EC0-C903-48FC-ACCC-81861D12DA4A"'
        'picAverage.AutoRedraw = True 'needs to be true
		picAverage.BorderStyle = System.Windows.Forms.BorderStyle.None
	End Sub
End Class